home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0885.arc / LETTER1.LTG < prev    next >
Text File  |  1986-02-27  |  384b  |  20 lines
  1. Letters Listing 1
  2.  
  3.             1          2         3         4         5         6
  4.  
  5. 0   ( CRASH - determine size of return stack by crashing FORTH )
  6. 1
  7. 2   : MYSELF LATEST PFA CFA , ; IMMEDIATE  ( call myself )
  8. 3
  9. 4   : RECURSE 1+ DUP . MYSELF ;
  10. 5
  11. 6   : CRASH 1 RECURSE ;
  12. 7
  13. 8
  14. 9
  15. 10
  16. 11
  17. 12
  18. 13
  19. 14
  20. 15